Lo_UCI<-c( -.00610093,   .03223513,  .07042116 ,  .10845124  , .14632159, .18403093, .22158058, .25897429, .29621804)
 
 
Hi_UCI<-c(  .74803629, .70870106,  .66942678,  .63022054, .59109012, .55204405, .51309151, .47424222,  .43550624)
   
   
   
effect<-.36



deviations<-seq(.09,.01,by=-.01)




prop_dev<-deviations/effect


effect<-rep(effect,length(prop_dev))


pdf(file="Figure_A12_right.pdf")

plot(prop_dev,effect,pch=16,cex=.5,ylim=c(-.02, .8),xlab="Prior on %  Direct Effect Exclusion Violation",ylab="Effect",main="Pooled")

for(i in 10:1){

lines(

c(prop_dev[i] , prop_dev[i]  ) , c(Lo_UCI[i], Hi_UCI[i]) ) 



}


abline(h=0,lty=2)

dev.off()